Public Class frmSQL
    Dim sDBServer, sDBName, sDBUserID, sDBPassword, sConnectionType As String
    Dim xmlSettings As New Xml.XmlDocument
    Dim xmlPath As String = My.Application.Info.DirectoryPath & "\loaderconfig.xml"
    Dim t As New RSA
    Public Sub frmSQL_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown




    End Sub

    Public Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
        ' checks for changes in txtboxes and confirms cancellation
        If Not sDBServer = Me.txtDBServer.Text OrElse _
        Not sDBName = Me.txtDBName.Text OrElse _
        Not sDBUserID = Me.txtUserID.Text OrElse _
        Not sDBPassword = Me.txtPassword.Text Then

            Dim rMsg As MsgBoxResult = MsgBox("Are you sure you want to close without saving changes?", MsgBoxStyle.YesNo, "Cancel Changes?")
            If rMsg = MsgBoxResult.Yes Then
                'save
            Else

            End If
        Else
            ' do nothing
        End If

        Me.Close()
    End Sub

    Public Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
        My.Settings.Save()
        Me.Close()
    End Sub

End Class